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1 .REM & 

4 
5 
6 
7 

n 

9 IDENTIFICATION 




PRODUCT CODES AC-E451A-MC 

13 

14 PRODUCT NAMES CXTSAAO DEC/X11 TS11/TS04 MOD 

11 PRODUCT DATES FEB 1979 

17 

18 MAINT AIMERS DEC/X11 SUPPORT GROUP 

lo THE INFORMATION III THIS DOCUMENT IS SUBJECT TO CHANGE 

21 WITHOUT NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT 

22 BY DIGITAL EQUIPMENT CORPORATION. DIGITAL EQUIPMENT 

23 CORPORATION ASSUMES NO RESPONSIBILITY FOR ANY ERRORS THAT 

24 MAY APPEAR IN THIS MANUAL. 

'II THE SOFT MARE DESCRIBED IN THIS DOCUMENT IS FURNISHED TO THE 

27 PURCHASER UNDER A LICENSE FOR USE ON A SINGLE COMPUTER 

28 SYSTEM AND CAN BE COPIED (WITH INCLUSION OF DIGITALS 

29 COPYRIGHT NOTICE) ONLY FOR USE IN SUCH SYSTEM* EXCEPT AS MAY 

30 OTHERWISE BE PROVIDED IN WRITING BY DIGITAL. 
3 



DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR 

33 THE USE OR RELIABILITY OF ITS SOFTWARE ON EQUIPMENT THAT IS 

34 NOT SUPPLIED BY DIGITAL. 

6 COPYRIGHT (C) 1978,1979 DIGITAL EQUIPMENT CORPORATION 
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37 1.0 ABSTRACT 

19 

40 TSA IS AN IOMODX MODULE THAT CAN EXERCISE UP TO 4 TS11/TS04 

41 MAGNETIC TAPE SUBSYSTEMS. IT EXERCISES THE DR I YES BY DOING A 

WRITE* READ REVERSE, IN-CORE COMPARE, READ FORWARD, IN CORE 
COMPARE* THIS SEQUENCE OF FUNCTIONS WILL BE DEFINED AS A 



44 CYCLE. AN "END OFPASS" WILL BE~ RE ACHED AF^ER^li CYCLES. ALL 

45 ERRORS DETECTED ARE REPORTED ON THE CONSOLE TTY. 



2.0 REQUIREMENTS 



48 
49 

|| HARDWARE: 1 TO 4 TS11/TS04 TAPE SUBSYSTEMS. 

52 STORAGE: TSA REQUIRES 1345 WORDS OF STORAGE. 
53 

54 3.0 PASS DEFINITION 
56 

57 ONE PASS OF THE TSA MODULE CONSISTS OF 512 CYCLES OF THE BASIC 

58 TEST SEQUENCE (WRITE, READ REVERSE, DATA COMPARE. READ FORWARD, 

59 DATA COMPARE*. THE WRITE AND READ DATA LENGTHS ARE 256 WORDS. 
60 

6| 4*0 EXECUTION TIME 

63 ~ " 

64 ONE PASS OF TSA RUNNING ALONE ON A PDP-11 /34 TAKES APPROXIMATELY 
|5 1 MINUTE. 

67 5.0 CONFIGURATION REQUIREMENTS 

68 

69 

70 DEFAULT PARAMETERS: 



2 DEVADR: 172520 VECTORS 224 BRlS 5 DEVCNT: 1 

4 REQUIRED PARAMETERS S 



h 

76 C REQUIRED FOR MULTIPLE DRIVE OPERATION ONLY) 

|8 SR2 : VECTOR FOR 2ND DRIfE 

80 SR3: VECTOR FOR 3RD DRIVE 

II SR4: VECTOR FOR 4TH DRIVE 

83 

84 6.0 DEVICF/OPTION SETUP 

85 

86 

87 MAKE CERTAIN THAT ALL DRIVES ARE POWERED UP, WRITE ENABLED AND 

88 Off LINE. HAVING ALL DRIVES AT LOAD POINT IS NOT ESSENTIAL TO 

89 THE OPERATION OF THE MODULE BUT WILL ENSURE THAT THE RECORD COUNT 

90 ACCURATELY REFLECTS THE NUMBER OF RECORDS FROM LOAD POINT ON 

91 THE 1ST PASS OF TAPE. {THE RECORD COUNT ACCOMPANIES ALL ERROR 

92 PRINTOUTS AND CAN BE USED TO IDENTIFY BAD SpOTS ON TAPE). 
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93 

94 7.0 MODULE OP ER At ION 

95 

96 

97 TEST SEQUENCE: 

P A. SET UP DEVICE REGISTER ADDRESSES AND MODULE VARIABLES* 
100 

101 B. INITIALIZE ALL DEVICES* 

103 C. GET A DEVICE ADDRESS. 
104 

{05 D. ISSUE SET CHARACTERISTIC AND ERASE COMMANDS 
06 TO THE DEVICE. 

108 E. IF NOT END OP DEVICES, GO TO C. 
109 

110 r. GET NEXT DEVICE ADDRESS. 

111 G. DO A WRITE - IP ERRORS* REPORT AND RETRY TO THE RETRY 
113 LIMIT. 

ill H. DO A READ REVERSE - IF ERRORS, REPORT AND RETRY TO THE 
116 RETRY LIMIT* 

HI I. DO A DATA CHECK - IP ERRORS, REPORT AND CONTINUE. 

120 J. DO A READ FORWARD - IF ERRORS, REPORT AND RETRY TO THE 

121 RETRY LIMIT. 

Ill SC. DO A DATA CHECK - IF ERRORS, REPORT AND CONTINUE. 
124 

125 L. IF AT END OF TAPE - DO A REWIND. 

Irl M. IF END OF PASS, REPORT AND GO TO C, ELSE GO TO F. 
128 

129 ERROR RECOVERY SEQUENCE: 

131 IF RETRY LIMIT HAS BEEN REACHED, THEN: 

132 S PRINT UNRECOVERABLE ERROR. 

133 S IF BIT IS SET IN SRI, THEN! 

134 2 S DROP THIS DEVICE FROM THE TEST SEQUENCE. 

135 ELSES 

136 S PRINT RECOVERABLE ERROR. 

137 S INCREMENT THE RETRY COUNTER. 

138 S IF THE FUNCTION IS A READ, THEN: 

139 % t IF THE RETRY COUNT TS HALF THE LIMIT OR MORE, THEN: 

140 : : : SET THE OPPOSITE DIRECTION BIT IN THE RETRY COMMAND. 

(41 S ISSUE THE RETRY COMMAND TO THE DEVICE. 
43 RETRY LIMITS: 

145 FOR READ/WRITE COMMANDS = 16 RETRIES. 

14^ FOR ALL OTHER COMMANDS = « RETRIES. 



TSAA DEC/X11 SYSTEM EXERCISER MODULE MACY11 30AC1052) 08-NOV-78 11:00 PAGE 5 

XTSAAO.Pll 08-NOV-78 10S59 SEQ 0004 

149 8.0 OPERATION OPTIONS 

II? 

52 SRI BITO CLEAR (0): 



1" 



_ s 4 If AN UNRECOVERABLE ERROR OCCURS ON ANY FUNCTION, THE FUNC- 

1|5 TION IS ABORTED AND TESTING CONTINUES. 

157 SRI BITO SET CDS 



157 

IP 



ill IF AN UNRECOVERABLE ERROR OCCURS ON ANY FUNCTION, THE DEVICE 

160 IS DROPPED FROM THE TEST CYCLE. 



163 

164 ALL RECOVERABLE ERRORS ARE REPORTED. 



5 



it 

if 7 



1 



17? 

172 



198 



SR1 BIT1 CLEAR (0): 



SRI BIT1 SET (1): 



8 RECOVERABLE ERRORS ARE NOT REPORTED. 

f? 



9.0 NON-STANDARD PRINTOUTS 



73 ALL PRINTOUTS HAVE THE STANDARD FORMATS DESCRIBED IN THE DEC/Ill 

_7| DOCUMENTS. 

1?6 ERROR MESSAGES DUMP THE CONTENTS OF 10 LOCATIONS IN THE FOLLOWING 

lp ORDERS 

7$ DCNT MTYPE MLEN RFC XSTATO XSTAT1 XSTAT2 XSTAT3 

80 RECORD RTRYC 

182 DCNT = DEVICE NUMBER CO - 31. 

83 MTYPE s MESSAGE PACKET 1ST WORD - MESSAGE TYPE. 

184 MLEN s MESSAGE PACKET 2ND WORD - MESSAGE LENGTH. 

185 RFC - MESSAGE PACKET 3RD WORD - RESIDUAL FRAME COUNT. 

186 XSTATO = MESSAGE PACKET 4TH WORD - EXTENDED STATUS REG 0. 

187 XSTAT1 s MESSAGE PACKET 5TH WORD - EXTENDED STATUS REG I. 

188 XSTAT2 = MESSAGE PACKET 6TH WORD - EXTENDED STATUS REG 2. 

189 XSTATl = MESSAGE PACKET 7TH WORD - EXTENDED STATUS REG 3. 

190 RECORD = RECORD COUNT - NUMBER OF RECORDS FROM BOT. 

191 RTRYC = RETRY COUNT (MILL BE ON ORIGINAL ERROR). 



10.0 DEFINITION OF ERRORS 



192 

ill 

195 

196 RECOVERABLE ERROR - TERMINATION CLASS CODE OF 4 OR 5 AND RETRY 

197 LIMIT NOT EXCEEDED. 



199 UNRECOVERABLE ERROR - TERMINATION CLASS CODE OF 6 OR TERMINATION 

200 CLASS CODE OF 4 OR 5 AND RETRY LIMIT EXCEEDED. 
201 

202 £. 
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224 
226 



229 
230 
231 
232 

ffl 

235 



ffl 



hum 



000 



040501 



888858- 

000032* 

mm- 

000040* 
000042* 
000044* 
000046* 
000050* 
000052* 
000054* 
000056* 
000056* 
000060* 
000062* 
000064* 

5 W 




040 



SEQ 0005 



56. 



Mnernu g li.uitf.1D 



23-MAY-78 



IOMODX 

M ¥i?fci 

DDXCOK VERSION"' _ 

♦^J*^*** 1 *^***************************************************** 




/ > MODULE 




_YTg PRTY5*0 
BYTE PRTY0*5 



idmum: 

RBUFVA: 



?ft||B_T0 



DEVI 



_„ ADDR _ 

Sf DEVICE VECTOR. 

?|st br level. 

Ioevic'e iSdIcator 1. 
;shitch register 1 

SNITCH REGISTER * 



EP TRACK OF WBUFF USAGE 



mmim 



************************ 



} STATUS WORD. 
;MODULE START ADDR. 
;MODULE STACK POINTER 

iyu wiViUs per 

?LOC TO COUNT ITERAT 

;LOC |0 SAVE TOTAL SOFT 



;LOC 



... . _ PASS=512 
I|ERAIIOIIS 



SAVE TOTAL HARD 



ERRORS 
ERRORS 



;LOC TO SAVE SOFT ERRORS PER PASS 

rt ~ -Q SAVE HARP 

SYS Er 



>LOC T 
>i_PF„SY 



_ ..„.J> ERRORS PER PASS 
RRORS ACCUMULATED 



>flOLDS RANDOM » WHEN RAND MACRO IS CALLED 
; RESERVED FOR MONITOR USE 
; RESERVED FOR MONITOR USE 
; RESERVED FOR MONITOR USE 
?LOC TO SAVE RO. 
;LOC TO SAVE Rl 
;LOC TO SAVE 
>LOC TO SAVE 
;LOC TO SAVE 
;LOC TO SAVE 

of^cuIrfnt CSR. 

> ADDR OF GOOD DATA, 
; CONTENTS OF CSR. 

jS?S R TO§ F R?S D c8il T i«T§? 
;TYPE OF ERROR 
jEXPgCTEg DATA. 

ADDRESS AFTER 

; WORDS - 

;WORDS 



IER EL_ = . 
ITERATION 
FROM MEMORY PER ITERATION 



NO OF PASS 
-"-10" 



ERRUPTS PER ITERATION 



_ ENTIFICATION NUMBER=163 
_ JFFER VIRTUAL ADDRESS 
BUFFER PHYSICAL ADDRESS 



>READ BUfFER VIRTUAI 
IREAD ~ ** " 
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10S 



25Q 
260 
261 
262 
263 
264 
265 

w 

m 
m 

274 



0001 



00000 



000132* 000400 
"10134* 000000 

o$gooo 




000252* 
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•NLIST 

»WQR 



SPSIZ 



*************** 



SEQ 0006 



I READ BUFFER EA BITS 
;SIZE OF THE READ BUFFER 
; WRITE BUFFER PHYSICAL Al 

JWRITE BUFFER EA 

1 WRITE BUFFER SI__ 
; WRITE BUFFER SIZE AVllL 
JCDATA/DATCK ERROR COUNT 
;CDATA/DATCK WORD COUNT 



ADDRESS 

BITS 

E REQUESTED 
- AVAILABLE 



******************************* 



TSAA DEC/X 
XTSAA0.P11 



11 s XI!ggv!5i R fi?I§ H0D0LI! 
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SEQ 0007 



•PRINT 




1.1 



J INITIALIZE STRUCTURED NACROS 



id macro instructions. 
Id macro tags. 



020000 



000001 



THE FOLLOWING ARE TS04 COMMAND DEFINITIONS. 

149204 ?SE| CHARACTERISTIC. 



SCH 
ERS 



RDP 

Rr" 

* 

RL. 
RFR 

THE FOLLOWING 

CM.OPP=20000 

THE FOLLOWING 

fS.SSR=200 
TS.SCslOOOOO 

THE FOLLOWING 

XSO.EOTsl 

MISCELLANEOUS 

WRETRY=16. 

mm. 



mi. 



.EVERSE. 

IREAD FORWARD. 



, REVERSE RETRY. 

IREAD FORWARD RETRY. 

ARE COMMAND WORD BIT DEFINITIONS. 

^OPPOSITE DIRECTION BIT. 

ARE TSSRCSTATOS REGISTER) BIT DEFINITIONS. 



ARE EXTENDED STATUS REGISTER BIT DEFINITIONS. 
}END OF TAPE. 



DEFINITIONS. 



WRITE COMMAND RETRY LIMIT. 
r READ COMMAND RETRY LI' 
^ RETRY LIMIT FOR NQN-RI 



> TABLE TERMINATION 



TIC BLOCK LEnIIh IN WORDS. 
CODE DEFAULT. 
" INDICATOR. 



> MESS [AGE "eiIp| U LENGTH"0' g¥f 
—AR A |t|| I S I JC_ BL QCK..L EN 
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SEQ 0008 




THE FOLLOWING LOCATIONS ARE 

MDPKY 



USED TO REQUEST BUFFERS FROM THE MONITOR. 



; COMMAND PACKET VIRTUAL ADDRESS. 
— OMMAND PACKET PHYSICAL ADDRESS 
MMAND PACKET E A BITS. 

PACKET VIRTUAL ADDRESS. 

PACKET PHYSICAL ADDRESS. 
PACKET EA BITS. 
" CK VIRTUAL ADDRESS. 

^.CK PHYSICAL ADDRESS. 

? MESSAGE BLOCK EA BITS, 



^MESSAGE 

iibi 

JMBSSAGE 



mil 

vilND: 



THE FOLLOWING LOCATIONS ARE THE DEVICE POINTERS. 

NTER. 
"X. 



ttssr: 

TVECTt 

TRECS 



IDEVICE COUN 

I device inde: 

; DEVICE INDli 



j DEVICE INDICATOR. 
1 VARIABLE DEVICE INDICATOR. 



THE FOLLOWING LOCATIONS ARE DEVICE VARIABLES. 



TSSRi 
VECT* 
RECORDS 

; 

£MD3 

R?8?LJ 

RTRVCi 

1 
I 

ttsdb: 



t STATUS REGISTER ADDRESS OF CURRENT DEVICE. 
> VECTOR ADDRESS OF CURRENT DEVICE. 
; RE CORD COUNT OF CURRENT DEVICE. 



THE FOLLOWING LOCATIONS ARE COMMAND VARIABLES. 



} CURRENT TS04 COMMA 

mm ™?° *»* 



ND WORD. 



} RETRY COUNT. 



i8Isi OL T L »§i:iS e *Sfii!t^i?iB D D5Hiii T H5gg 

ITSDB 
ITSSR ... 

mil i 

IViCfOR 



DEVICE VARIABLES. m 
LE START INITIALIZATION. 



DB ADR foR 
DB ADR FOR 

~~ ADR FOR _ 
ADR FOR D! 



DEVICE 

DEVICE 



DEVIC1 
.... , _.. DEVI" 
ADR FOR DEVI 



>R FOR DEVI 

olr- 



ICE 



OR FOR DEVICE 
ADR FOR DEVICE 




TSAA .__ 
XTSAAO.P 
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0003|2 



000 
000 



000426 
000430 
000432 
000434 



mm 

000452 
Q0Q454 

mm 

000462 

mm 

"474 



000504 




mm 

(0130! 



schar: 



write: 



rrey: 



rfwd: 



REWINDS 



EOD: 

EREC3 



THE FOLLOW IMG TABLES ARE USED TO SET UP COMMAND VARIABLES. 

CHARACTERISTIC COMMAND. 
Y COMMAND 

o| cmd ASCII. 
" IFFER PH5 




Or B 



ER 



ommano. 

" ~MD ASCII 

JPFER PH 

BUFFER ~ 

iRESS OF BUFFER 



s ADDRESS OF BUP 
} ADDRESS OF BUF 



PHYSICAL 

~ TF 



EXTENDED 

SIZE. 



LIMIT 

" OF CMD ASCII. 



.RET* 
} RETRY _ 
t ADDRESS 

i pii 8? mh mum 

} ADDRESS OF BUFFER SIZE. 

||E|D^R|pRSE_ COMMAND. 



JTOrL^qPSnD ASCII 



I ADDRESS OF BUFFER . .. 
{ ADDRESS OF BUFFER EX 



PHYSICAL 

K EXTENDED 

; ADDRESS Of BUFFER SIZE. 



gBUFPA 
BUFEA 
RBUFSZ 
RDF 

RFR 

RRETRY 

RDFAS 
RBUFPA 
RBUPEA 
RBUFSZ 
RWD 
RHD 

BCON 
BCON 
BCON 

THE FOLLOWING BYTES ARE USED AS PROGRAM CONTROL FLAGS. 
.BYTE 

:§??! 



ADR. 
ADR . 



ADR. 
ADR. 



i88: 



ADR • 
ADR. 



>READ FORWARD COMMAND. 
SRETRY COMMAND 
{RETRY LIMIT. 
; ADDRESS OF CMD ASCII 
J ADDRESS OF BUFFER PH 
1 ADDRESS OF BUFFER ~ 
{ADDRESS OF BUFFER 
; REWIND COMMAND. 
;RETRY COMMAND 

I aEoSeS^ OF CMD ASCII. 
; ADDRESS OF BUFFER PHYSICAL 
} ADDRESS Or BUFFER EXTENDED 
{ADDRESS OF BUFFER SIZE. 



HYSICAL ADR. 
XTENDED ADR. 

IZE. 



ADR. 
ADR. 



?END OF DEVICES. 

iSBia'-ira'fE'ttoWH. " ""- 

> ERROR RECOVERY IS REQUIRED. 



SEQ 0009 
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1 THE FOLLOWING BYTES ARE UNEXPECTED INTERRUPT FLAGS AND MUST BE 

> ASSEMBLED IN ORDER* 



SEO 0010 



TCCRA: 



table: 



LIN ADDRESSES OF THE TERMINATION CLASS CODE 
! ASSEMBLED IN ORDER. 



; TERMINATION CLASS CODE 

{TERMINATION CLASS CODE 

{TERMINATION CLASS CODE 

^TERMINATION CLASS CODE 

; TERMINATION CLASS CODE 

l TERMINATION CLASS CODE 

{TERMINATION CLASS CODE 

^TERMINATION CLASS CODE 



OUTINI 



OWING 



_„. LOCATIONS CONTAIN ADDRESSES 
ND MUST BE ASSEMBLED IN ORDER. 

^DEVICE 0. 
JDEVICE 1. 
> DEVICE 2. 
^DEVICE 3. 



OF UNEXPECTED INTERRUPT 



E FOLLOWING LOCATIONS CONTAIt 
5 SB ADDRESSES ARB CALCULATED 



I ADDRESSES OF THE COMMAND PACKET WORDS. 
AND STORED OURING INITIALIZATION. 

1COMBINED PHYSICAL COMMAND PACKET 
'*RPJIS§ SITH EXTENDED BITS IN ftlTS 0*1. 
1 ADDRESS OF COMMAND PACKET 1ST WORD. 
> ADDRESS OF COMMAND PACKET 2ND WORD. 

{ADDRESS OF COMMAND PACKET 

; ADDRESS OF COMMAND PACKET 



ISrSi 



THE FOLLOWING CONSTANTS MUST BE ASSEMRLED IN ORDER. 



THE FOLLOWING TABLE CONTAINS ADDRESSES OF VARIABLES TO BE PRINTED 
IN THE EXTENDED ERROR REPORTS. 

DCNT 
MSGPKT 
MSGPKT*? 
MSGPKT+4 
MSGPKT*f 
MSGPKT* 
MSGPKT* 



# DEVICE NUMBER 
^STATUS MESSAGE TYPE. 
I STATUS MESSAGE LENGTH IN 
{RESIDUAL FRAME COUNT. 
/EXTENDED STATUS REGISTER 
^EXTENDED STATUS REGISTER 
^EXTENDED STATUS REGISTER 



BYTES. 



mm 

000622* 

... m& 

495 000630- 
000632* 



MODULE 




0000 




511 

518 000662* 000400 
519 
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SEQ 0011 



bufin: 



14 



; EXTENDED STATUS REGISTER 3. 
} RECORD COUNT. 
} RE TRY COUNT. 

Stable terminator. 



MISCELLANEOUS PROGRAM YARIABLES. 



SBUrSZS 

time: 



CMDPKTI 



SCHCNT 





THIS 




iSET CHARACTERISTIC BLOCK LENGTH IN WORDS. 
/TIMEOUT COUNTER. 



is the command packet - it must be on a modulo 4 boundry. 

;5up?er°I»hys?caE r a6dress. 

7 BUFFER EXTENDED ADR IN BITS 0*1. 



THIS IS THE SET CHARACTERISTIC BLOCK. 



MSGBLKS 




MSGCNT 
SCDFLT 



THIS IS THE MESSAGE PACKET. 



THIS IS THE READ BUFFER. 
•BLKH 256. 



HIST 4 WORDS CAN BE PUSHED 

KET 
III 



4 BOUNDRY 
DOWN 1 WORD). 



| MESSAGE PACKET PHYSICAL ADDRESS. 

}S|I||f !igHi_Eiii!i%%l!. BITS 



0*1. 



CHARACTERISTIC CODE. 



> MESSAGE TYPE. 
XTENDED ST A 



Hi 



JSS 
AT US 



IN BYTES. 
COUNT. 
REGISTER 
REGISTER 



8S REGISTI 
S REGISTI 
US REGISTI 



;512 BYTES. 




ill 

544 
545 



8SHM*- 

88I758- 

mm- 
mm- 

001776* 



mm 
mm 
mm 
mm 



JISER MODULE 



176224 

176242 176214 

000003 176210 

176100 176362 

176566 
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START! LET WD TO :» RBUFSZ SHIFT 1 



SEQ 0012 



mm- ° 00322 ' 




mm- 



176002 176332 



000016* 000342* 



BUFFER SIZE X2» 
TO 



LET WDFR := WBUFSZ 
LET IRTR :* *3 
LET DIND 8* DVID1 
LET DNOD :B» #0 
CALL I DP 

WHILEB EOD EQ #0 DO 

LET Rl := DCNT 
LET R2 »« OINX 
LET R3 J« R2 SHIFT 1 

LET TTSDBCR2) S* ADDR ♦ R3 

LET TTSSRCR2) : = TTSDBCR2) 

IF R2 EQ «0 THEN 

LET TYBCT :* VECTOR 

ELSE 

LET TVBCTCR2) :» SR1(R2) 
END IF 

LET TRECCR2) := #0 

LET UIFLO(Rl) :B* #0 

CALL DVSET 

LET R4 :» VECT 

LET (R4)+ :s 0IADR(R2) 

LET (R4) SB« BR1 

LET §TSSR := fO 



>LET « OF READ WDS PER CYCLE 

MOV RBUFSZ,WD 

ASL NDTO 
;LET f OF WRITE WDS PER CYCLE = BUFFER SIZE. 

MOV WBUFSZ,WDFR 

,LET * OF INTERRUPTS PER CYCLE =3. 

MOV $3,IMTR 

>LET DEVICE INDICATOR AND SAVE IT. 

MOV DVID1,DIND 

, CLEAR MODULE DROP FLAG. 

CLRB DMOD 
J CALL IDP-INITIALIZE DEVICE POINTERS. 

' JSR PC,IDP 

; WHILE THERE ARE^jjgg DEVICES: 

S# TSTB EOD 

8 HE 60001$ 
_. REGISTER* 

MOV DCNT/R1 
;SAVE DEVICE INDEX IN REGISTER* 

MOV DTNX.R2 
>SAVE DEVICE ADDRESS INCREMENT IN REGISTER, 
MOV R2,R3 



ASL 

; GENERATE AND STORE TSDB ADR 
MOV 
ADD 

♦ 12 ^GENERATE AND STORE TSSR ADR 
MOV 
ADD 

I IF THIS IS THE FIRST DEVICE 
TST 



50002S 

; STORE VECTOR OEPAULf _|N VECTOR.IAB 



R3 

IN TSDB TABLE* 
ADDR,TTSDB(R2) 

ii 3 fl!i D ?l§dl 

TTSD§?R2j,Tf §SR( 



I ELSE - FOR ALL OTHER DEVICES: 



E §00 
IN VECTOR TABLE. 

OV VECTOR,! VECT 



} STORE SR2-SR4° 



BR 50003$ 

Stents in vector table. 



bIIv A « f bvi UK I MDUC. 

MOV SR1<R2),TVECT(R2 
50003SS 

; CLEAR THIS DEVICE'S RECORD COUNT, 

CLR TREC(R2) 
I CLEAR UNEXPECTED INTERRUPT FLAG* 

CLRB UIFLO(Rl) 
>CALL DVSET-SET UP DEVICE VARIABLES* 

JSR PC, DVSET 

I SAVE VECTOR ADDRESS IN REGISTER* 

MOV VECT R4 

; POINT VECTOR TO UNEXPECTED INTERRUPT ROUTINE, 

MOV UIADR<R2),(R4)* 
JSTORE INTERRUPT PRIORITY IN VECTOR ♦ 5/ 

MOVB BR1 (R4) 
, ISSUE SUBSYSTEM INITIALIZATION t6 TS04, 

CLR #TSSR 



TSAA 0EC/X11 
XTSAAO.Pll 
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576 

I? 7 , 



602 

m 

585 
586 



589 
590 



593 
594 
595 
596 
597 



601 

m 

604 
605 
606 
607 



610 
611 

111 

615 



618 
619 

Si? 

622 
623 
624 
625 

%\% 

628 



631 



IPIP- 004767 000744 
Oolo|8* 000722 
000404 

WW- mm 175744 

002072* 000673 

mm- 



02102' 



104415 
104415 



IIP m 

002120* 06 27 



m 



!146* 

mur- 
mur- 

002176* 
002176* 
002204* 

mm- 

002220* 

mm- 

002234* 



016767 
062767 

016767 
062767 

016767 
062767 



§833 



!767 000003 
406 

767 000002 

002126* 104415 000000* 



in; m 

mm mil". 

066767 176066 



016767 176056 



176C 
000C 



mm 
mm 



176136 
176124 
000252* 

176404 

176356 
176352 

mm 
nmt 
mm 



SEQ 0013 



CALL OP DP 
EWDDO 



BR CONTUE 

I » 

RESfRf I IF PASCIT SQ #0 THS1 

BR START 
ENDIF 

I 

-H^IST MC 



;C ALL UPDP-UPDATE DEVICE POIh T^R TO NEXT DEV. 

JSR PC,UrDP 
|END OF DEUCE INITIALIZATION t-Ogjj.^ 

50001s: 

>BYPASS DT03 BUS SWITCH CHECK WHEN STARTING. 



C0MTUES 



HE 

GETPAS, BEGIN, RBUFVA 

ge?pa$, begin, CBUPVA 



Mr Hg 

IF fBITOIBITl 



;IF THE PASS COUNT IS CLEARED THEN: 

T ST r A S C N f 

BNE 50004$ 
sGO TO START, PROCESSORS HAVE BEEN SNITCHED. 
IEMD OF DT03 BUS g^JJCH CHECK. 



;GET PHYSICAL ADDRESS FROM 16-B lT RBUFYA 
I GET PHYSICAL ADDRESS FROM 16-B IT CBUFVA 



SETIN CBUFPA THEN }XF CMDPKT ADR IS NOT ON^A^MODULO 4^gOUN^RY^TH|N 

BEQ 50005$ * 



LET CBUFVA J* CBUFVA ♦ #2 



•ML 1ST 



:fcT 



MC 
ME 



} INCREASE CMDPKT VIRTUAL ADR BY 2« 

ADD #2,CBUFVA 

I GET PHYSICAL ADDRESS FROM 16-BIT CBUFVA 



ENDIP 

LET CMDADR :* CBUFEA SHIFT -4 



I END OF CMD PACK|J JDDRESS CHECK. 

» SHI " E "" BED **' B lti °* 1 'CC,UFEA,CHD 1 0R 

ASR CMDADP 
ASR CMDADR 



CMDADR 
CMDADR 



LET CMDAOR := CMDADR ♦ CBUFPA } ADD PHYSICAL AND EXTENDED^ ADDR ESSjSS^ 



LET CMDPK1 5= CBUFVA 

LET CMDPK2 : = CBUFVA * #2 

LET CMDPK3 :* CBUFVA ♦ #4 

LET CMDPK4 S* CBUFVA * #6 
e ML I ST MC 



; AND STORE AS CMD PACKET ADDRESS. 
5 SAVE ADDRESS OF CQMM AND ..PACK ET 1ST„W0RD. 

} SAVE ADDRESS OF 



MOV CBUFVA.CMDPK 1 

COMMAND PACKET 2ND WORD. 



Lour v a. 
*2,CMDPK2 

;SAVE ADDRESS OF COMMAND PACKET 3RD 



MOV 

ADD 



#4,CMDPK3 

I SAVE ADDRESS OF COMMAND PACKET 4TH_W0RD. 



MOV 

ADD 



CBUFVA. CMDPK2 



WORD. 
CBUFVA,CMDPK3 



MOV 

ADD 



CBUFVA,CMDPK4 
#6,CMDPK4 



TSAA DEC/XU SYSTEM EXf 
XTSAAO.Pll 6«-NOf-7l 




RCISER MODULE 

I loss" 



mm- mm- 



176000 176350 



175774 176344 
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SEQ 0014 



ill 
mm 

002370 



004767 
000753 



000742 

176141 

000252 

000722 



000436 



•LIST ME 

GETPAS, BEGIN, MBUFVA 
GETPA$, BEGIN, SBUFVA 
•LIST MC 
•MLIST ME 

LET MSGBLK J» MBUFPA 



LET MSGBLK*2 1= MBfjFEA SHIFT -4 



CALL IDP 

HHILEB EOD SQ #0 DO 



CALL DVSET 



JGET PHYSICAL ADDRESS FROM 16-BIT MBUFVA 
>GET PHYSICAL ADDRESS FROM 16-B IT SBUFVA 



CALL ICCS 



IFB DROP EQ #0 THEN 



CALL ICCS 



END IF 

CALL UP DP 
EHDDO 



j PHYSICAL ADDRESS FROM MONITOR. 
IMOVE MESSAGE PACKET ADDRESS TO 

{SitPftlUnifi !is8Sy s &§5 

MOV 

ASR 
ASR 
ASR 
ASR 



J AMD STORE IN 
•CALL 



MBUFPA, MSGBLK 

MB UPS A, MSGBLK* 2 
MSGBLK+2 
MSGBLK** 
MSGBLK+2 

HSGBLK*2 



... CHARACTERISTIC BLOCK 2ND WD. 

IDP-INITIALIZE DEVICE POINTERS. 

JSR PC, IDP 

; WHILE THERE ARE MORE DEVICES: 
50006$: 

TSTB EOD 
BNE b0007$ 

;CALL DVSET -SET UP DEVICE VARIABLES, 

JSR PC, DVSET 

1C ALL CVSET-SET UP COMMAND VARIABLES. 

I ADR OF SET CHAR CMD VARIABLE TABLE. 

•CALL ICCS-ISSUE SET CHARACTERISTICS 
JSR PC, ICCS 

•COMMAND AND CHECK STATUS. 

I IF CURRENT DEVICE NOT DROPPED TrfEN: 
TSTB DROP 
BNE 50010$ 

|ad1s L o£ ? erase e Sm8 p vX8?ab^ 
•call iccs-issue erase command 

jsr pc, iccs 

i AMD CHECK STATUS. 
•END OF DEVICE 5 jJgJjj CHECK. 

;C ALL UPDP-UPDATE olviCE POINTERS, 

JSR PC,UPDP 
•END OF SET CHARACTERISTIC LOOP. 

BR 50006$ 

50007$: 



TSAA DEC/XU 
XTSAAO.Pll 

677 00231 



702 
703 



730 
731 
732 



SYSTEM EXi 

Oft-M0f-7I 



mm 
urn 

000167 



,RCJS|R MODULE 



175444 175440 
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SEQ 0015 



176104 

000204 



002412* 104414 000000* 



mm- 

002456' 

mm- 

mm- 

002470 " 

mm- 



175654 
000352' 

mm 

000640 
176037 
000150 

000620 
176017 



002500* 
002506* 



002510* 
002514* 



016702 
005262 

MS- 

004767 

105767 
001053 

o«- 

004767 

105767 
001043 

012767 000001 175406 
000000* 000126* 



mm- 



OOoli?* 

004767 

105767 
001024 



000112 

000562 
175761 



BEGIN MAIM 

WHILE ICOUNT LT ICQMT DO 

IFB DMQD HE #0 THEN 

INLINE <JMP PIMIT> 
ENOIP 



/BEGINNING OP MAIN MODULE. 

SMAIN: 

/WHILE CYCLE COUNTS LESS THEN THE 

5 1S! CMP ICUUNT,ICONT 
BGE 500025 
/NUMBER OF CYCLES PER PASS: 

/IP DROP MODULE FLAG IS SET THEN: 
TSTB DMOD 

5000: 



/ END MODULE DR 



BEQ 50003$ 
/LEAVE MODULE MAIN PLOW-DROP MODULE. 
jMP 




SP CHECK. 
0003$: 



FIN IT 



3* 012767 000001 175350 



GWB 

ltt~U2 := DINX 

LET TRECCR2) := TREC(R2) 

CALL DVSET 

JSR R5,CVSET 
•WORD WRITE 
CALL ICCS 

IFB DROP EQ #0 THEN 

JSR R5,CVSET 
. WORD RREV 
CALL ICCS 

IFB DROP EQ #0 THEN 

LET ERRTYP := #1 

. ML I ST MC 
•LIST ME 
CD ATA$, BEGIN,RBUPPA / 

• *2 / 

CALL ICCS 

IFB DROP EQ #0 THEN 
LET ERRTYP := #1 



/GET WRITE BUFFER INFORMATION 

;SAVE DEVICE INDEX IN REGISTER 



BOY 
D COUNT* 

INC TRSCJR2) 
/CALL DVSET-SET UP DEVICE VARIABLES^ 

/CALL CVSET-SET UP COMMAND VAR? SfiLES^ 
/ ADDRESS OF WRITE CMD VARIABLE TABLE, 
/CALL ICCS-ISSUE WRITE CMD ♦ CHECK STATUS, 

JSR PC,TCCS 
/IF CURRENT DEVICE HAS NOT BEEN DROPPED THEN: 

TSTB DROP 

SHE 500045 
MM AND VARIABLES, 
/ADDRESS OF READ REV CMD VARIABLE TABLE, 
/CALL ICCS-ISSUE READ REV ♦ CHECK STATUS 

JSR PC, ICCS 

/IF THIS DEVICE HAS NOT BEEN DROPPED THEN: 
TSTB DROP 
BNE 5000SS 
/LET ERROR TYPE EQUAL DATA COMPARE^ 



6lNX,R2 



REQU 
IF El 



SST FOR MONITOR TO CHECK DATA 
RQR, CONTINUE 



DVSET __. 
ESS OF READ 
ICCS-IS — 



SET UP COMMAND VARIABLES, 

FWD CMD VARIABLE TABLE, 

SAD FWD ♦ STATUS CHECK, 
JSR PC, ICCS 



/IF DEVICE HAS NOT BEEN DROPPED THEN: 
TSTB DROP 
BNE 50006$ 
/LET ERROR TYPE EQUAL DATA COMPARE, 
MOV #1, ERRTYP 



TSAA DEC/X11 SYSTEM EXERCISER MODULE 
XTSAAO.Pll 08-NOV-78 10:59 
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733 
734 
735 
736 
737 

m 

740 
7 4J 
742 
743 
744 
745 
746 
747 
748 

m 

751 
752 
753 
754 
755 
756 
757 
758 
75<» 

m 
n\ 

764 
765 
766 

769 
70 



773 
774 

)}\ 

58 

781 

782 



002536* 104412 000000* 000126* 
002544* 002546* 



mm- 032767 

miu- mm 

002562* 000476* 
Soiill- 004767 
oil??! 016702 
005062 




S8i|io* 000667 

mur- 
mur- 

002616* 



000001 
000044 

000514 
175502 
000352* 



176076 



004767 000220 



002604* 104413 000000* 



002616* 104410 000000* 

002622* 



SEQ 0016 



•NLIST MC 
LIST ME 
CDATA$,BECI«,RBUFPA 

•LIST MC 
•NLIST ME 
IF fXSO.EOT 



/ REQUEST FOR MONITOR TO CHECK DATA 
/ IF ERROR, CONTINUE 



SETIN XSTATO THEN / IF 



AT END OF TAPE THEN 
BIT 



^§§RD S REw!§S 
CALL ICCS 



CALL 
LET R2 
LET TREC(R 
ENDIF 
ENDIF 
ENDIF 
ENDIF 
CALL UPDP 
•N^IJT^MC 

enBWLbeIim 



/CALL CVSET 
/ADDRESS OF 
/CALL ICCS 



iXS0,EOT,XSTAT0 
50007$ 

VARIABLES, 

EWIND CMD VARIABLE TABLE 
1ND, CHECK STATUS, 



JEQ 
•SETUP CMD 



DINX 

2) :* 



ISSU| R REWIND^ CH|gK 
E IN R ER, 



#0 



7$: 

/END DEYICE^pggP CHECK, 



/SAVE DEVICE _„ 

MOV DINX,R2 
/ CLEAR DEVICE RECORD COUNTS 

CLR TREC(R2) 
/END OF END OF TAPE CHECK, 
50007$ 

/END DEVICE DggP^HECK, 

/END DEVICE DRg^glJECK 

/CALL UPDP-UPDATE DEVICE POINTERS, 

JSR PC, UPDP 



/ SIGNAL END OF ITERATION. 
/MONITOR SHALL TEST END OF PASS 



EST ME 



/END MODULE CYCLE LOOP. 

50002$: 
/END MAIN MODULE. 



BR 



50001$ 



BEGIN FINI 
INLINE <FINIT:> 

•NLIST MC 
•LIST ME 

endLbegin 

•LIST MC 
•ML 1ST ME 
END FINI 



/BEGINNING OF FINI MODULE. 

FINITS 



/END OF FINI MODULE. 



TSAA DEC/XU 
XTSAAO.Pll 

783 
786 



791 



MODULE 
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800 



803 

Hi 
805 
806 

4 

809 
810 




838 002706 



SEQ 0017 



ft * fir ft ft ft ftftftftftftftfcftft ft ftftftftftft* ft**ftftftftftftftft*ftftftftft*ft«*ft ftttftftftftftft 



'SUBROUTINE NAME S 

« 

•function: 
•calling sequence: 

•parameters passed: 



CVSET. 

SETS UP COMMAND 



PACKET AND OTHER CMD VARIABLES. * 



JSR 
„ If (3RD 



R5#CVSET 
TABLE 



ilhhhf 

TO LOCATE 



, „ AFTER THE LINK Rl 



OWING THE CALL 
INT AIM IMG ALL C 



REGISTER 



RETURN. 



contains* 
l Command * 



COMMAND VARIABLE TABLE CONTENTS l 
WORD 1 - TS04 COMMA«r 



TS04 Re!W HoMMAND 

aSJress oPcojmawd ASCII 

ADDRESS OF BUFFER PHYSICAL 
ADDRESS OF BUFFER EXTENDED 
ADDRESS OF BUFFER SIZE 



•REGISTERS USED: 
•SUBORDINATE ROUTINES: 



R4, R5. 
NONE 



****** **************** A************************ ************ 



CVSET: 



PUSH R4 
LET R4 s 



CR5>* 



;SAVE TABLE INDEX REGISTER ON THE STACK. 

MOV R4WSP) 
EQUAL THE ADDRESS 

MOV CR5)+,R4 
INCREMENT 



LET gCMDPKl := (R4) 

LET CMD 8s (R4>* 
LET RCMD Ss (R4>* 
LET RTRYL :» <R4)* 



>MOVE CMD HORD TO CMD PACK 



E AND 



;LET INDEX REGISTER 

IVE CMD Ml 
;SAVE THE CMD 

>GET RETRY CMD FROM TABLELAND SA 

AND 



NK REGISTER FOR RETUR. , 

10RD TO CMD PACKET 1ST WORD. 

MOV (R4),gCMDPKl 
WORD FOR REFERENCE. 

MOV (R4>+,CMD 



LET CMDA := 
LET 9CMDPK2 
LET §CMDPK3 



(R4>* 

S« §<R4>* 

i* §(R4H 



;get retry limit from table 

MOV 

I GET CMD ASCII ADR FROM TAP' 
MOV 

IMOVE BUFFER ADR TO CMD PACKET 

MOV 



MOV .._ ^R4|*^RCMD 



<R4)+,RTRYL 
FROM TABLE AND S AVE_ ~~ 



(R4)*,C 
2ND WORD 



IT. 
CMDA 



SHIFT -4 JMOVE EXTENDED ADR TO CMD PACKET 

A?l 



3rd mi 



CMDPK2 



LET 0CMDPK4 J* §(R4>* SHIFT 1 



; AND SHIFT TO BITS 0*1. 
;MOVE BUFFER SIZE TO CMD 



ASR 
ASR 
ASR 



R4)+ £ gCMDPK3 
ACMDPK3 
&CMDPK3 
&CMDPK3 
&CMDPK3 



PACKET 4TH WORD 



TSAA DEC/X11 
XTSAAO.Pll 



SYSTEM EX 
Ofl-MOV-7 



ER?I||| 



002712* 8ill?7 
||l7|l' 005067 
002?24' UllM 



NOV-78 10 

1 

175376 



MODULE 



644 

640 
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LET RTRYC fx #0 
POP R4 
RTS R5 



SEQ 0018 



HR41«V 0CMDPK4 
BCMDPK4 



MOV 

ASL 

} AND DOUBLE FOR BYTE COUNT. 
? CLEAR THE RETRY COUNT. 

CLR RTRVC 
;RESTQRE THE TABLE INDEX REGISTER. 

MOV (SP)*,R4 

1RETURN 



TSAA QEC/X11 
XTSAAO.Pll 



MACYll 30AC1052) 08-NQV-78 11:00 PAGE 20 



SEQ 0019 




mw III 



010246 

016702 175342 

016267 000322' 175136 

016267 000332* 175334 

* 016267 000342* 175330 

016267 000352* 175324 

105067 175516 

mm 



********** *************************************** ********* 



JJSUBROUTINE NAMES 
J *P UNCTION: 
jjCALLlNC SEQUENCE X 
^PARAMETERS PASSED: 
1*RE6ISTBRS USED: 



Of SET ; 

SETS UP ALL DEVICE VARIABLES. J 

CALL DV SET » J 

NONE I 

a2 - : 

|*SOBORDINATE ROUTINES) NONE J 
j ****** ****************** ****************************************** ****** 



DfSBTS PUSH R2 

LET R2 :» DINX 

LET CSRA S = TTSDB(R2) 

LET TSSR Ss TTSSRCR2) 

LET VECT S* TVECT(R2) 

LET RECORD t* TREC(R2) 

LET EOD SB* #0 

POP R2 

RTS PC 



>SAVE TABLE INDEX REGISTER ON STACK. 

MOV R2 f -(SP) 
?LET INDEX REGISTER EQUAL DEVICE INDEX. 

MOV DINX/R2 
|GET TSDB ADR FROM TSDB TABLE AND SAVE IT 

MOV TTSDBCR25 
>GET TSSR ADR PROM TSSR TABLE AND S&VE IT 

MOV TTSSR 
| GET VECTOR FROM VECTOR Tj^LE AND^AVI 

} GET RECORD COUNT FROM TABLE AND SAVE IT; 

MOV TREC(R2), 
; CLEAR END OF DEVICE FLAG. 

CLRR EOD 
JRESTORE THE TABLE INDEX REGISTER. 

MOV <SP)*,R2 

jreturn. 



V& IT 



,CSRA 
^TSSR 
VECT 
RECORD 



TSAA DEC/X11 SI 
XTSAAO.Pll { 

B84 

887 
886 
889 
A90 
891 
892 

833 

895 
896 
897 
898 
899 
900 
901 

s« 

904 
905 

908 
90? 




005067 175274 

005067 175272 

0127 67 000001 175270 

105067 175470 



005016* 105067 175465 
003022* 000207 
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***************** **************** ********************************** ****** 
f * * 
IDP * 



SEQ 0020 



;*SUBROUTINE NAMES 
^♦FUNCTION: 

{•CALLING SEQUENCE: 
JjPARAMBTBRS PASSED: 
jjREGISTERS USED: 
^SUBORDINATE ROUTINES: NONE 
| ****** ********************* 



INITIALIZES DEVICE POINTERS. 

DEFINITION OF DEVICE POINTERS 

* DEVICE COUNTER -COUNTS ~ 





«H'HDtc; 



- 3. 



2*S 
CONTAINS 



: °pi,iL 

ONLT THE BIT OF THE CURRENT DEVICE 
FROM THE DEVICE INDICATOR IN THE HE 



DEVICE 


1 


! 


1 t 


2 


1 3 


COUNTER 


1 


1 


1 ! 


2 


I 3 


INDEX 


1 


f 


2 ! 


4 


I 6 


VARIABLE I NO. 


1 


1 ! 


2 I 


.«.- 


1 8 



CALL IDP 
NONE 
NONE 



IDP: 



LET DCNT S* #0 
LET DINX Ss *0 
LET VDIND S» #1 
LET EOD IBs #0 
LET DROP SBs #0 
RTS PC 



; CLEAR DEVICE COUNTER. 
> CLEAR DEVICE INDEX. 



CLR 

CLR 
ICA 



DCNT 
DINX 



?LET VARIABLE DEVICE INDICATOR EQUAL 1. 

MOV #1, VDIND 

; CLEAR END OF DEVICES FLAG. 



I CLEAR DEVICE DROPPED FLAG. 

CLRB 
/RETURN. 



EOD 
DROP 



III 

933 
93 

? 

93 



in 

ill 
1 

IS* 

958 
959 

*fi 

III 
?f 
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•************************************************************************ 

* 

opdp ; 

UPDATE OlflCB POIRTBRS TO RBXT DEVICE. J 
CALL UPDP J 

moib : 
82 : 

[^SUBORDINATE ROUTIRBSS DROPD J 
J************************************************************************ 



SBQ 0021 



>*SUBRDUTIRE IAMBI 

WuNCYIOBS 
|£CALLIS6 SEQUENCES 

{^PARAMETERS PASSED S 
*RE€ISfSRS QSBDs 



ii811' 010246 

\l 016702 175242 

ihsfisi ooo5i2w 

1 276*7 000014 175040 

017767 175232 175030 

017767 175020 175020 

iimr- mm mm- nmv 

003076* 104405 000000' 000570* 



004767 000126 

105067 175373 

005267 175154 

UUll 175150 000003 

hftlU 175352 

112767 000001 175344 



UPDPt POSH R2 

LET R2 3» DC if 

IPB UIFL0CR2) RE #0 THEM 

LET BRRTYP t« #14 
LET ASTAT S» fTSSR 
LET ACSR := §CSRA 




|S AYE TABLE INDEX REClSTj 
|LET I QBE I REGISTER EQUAI 
IIP AR OHBlPECTED EBTERRj 



| LET ERROR TYPE EQUAL 



OB STACK, 
If ft2,-(SP> 



mm 

JOY V I14#ERRTYP 
,SAYE COBTEBTS OP YSSR POR P«l|f§||. Asf „ 
| SATE CONTESTS OP TSDB|cSR$ POR PRIbTOI 



fCSRA, AC: 



§5- 



;!SRictfSif(imK.....iffii{fsiR.jiiR»n 



*********** ******** 



EH DIP 

LET DROP IBs #0 

REPEAT 

LET DCIT t« DCBT ♦ fl 

IP DCBT GT #3 TBBB 

IPB EDO MB #0 TBEB 
LET DNOD IB* #1 



| CALL DROPD-DROP THE CURRENT DEVICE. 

JSR PC # DROPD 
| END OP UBEXPBCT|g o INTERRUPT CHECK. 

| CLEAR DEVICE DROPPED PLAG. qr p 

Differ TS R ?OUND: 



I REPEAT UNTIL AN 



ICE COON 



| INCREMENT DEVICE COUNTER* 

INC DCNT 
|1P DBYICP COUNT CREATOR THAN | || E || 



IIP END OP OEVICBS P| 
| SET DROP MODULE 



ET THE 



IS SET THEM * 
§0014$ 
il,DMOD 



TSAA DEC/X11 SYSTEM EXERCISER MODULE 
XTSJUO.Pll 08-MOV-78 10x59 



003144 




000432 
000412 

112767 000001 175330 

005067 175112 

005067 175110 

012767 000001 175106 

000412 

mm mm 175072 

01670? 175062 

016267 000560* 175060 



mm 
mm 



MACYU 30A(1052) 08-MOV-78 

BR UPDRTB 
ELSE 



lltOO PAGE 23 



175054 175050 



LET BOD IB* #1 
LET DCBT 1* #0 
LET DIBX 2= #0 
LET YD I NO l« #1 
EHDir 
ELSE 

LET DIBX 1» DCBT SBIPY 1 

LET R2 1» DINK 

LET YDIBD I* BCOfl(R2) 

ENDIP 

UNTIL YDIBD SETIB DIED 



UPDRTB! POP R? 

RTS PC 



SEO 0022 



9 SET END OP°8i 



MOVB 

9 CLEAR DEVICE COUNTER , 



OROPPED. 

15$ 



ES PLAG* 
MQYB 



I CLEAR DEVICE IBDBi 
I SET VARIABLE DEY 
|SMD OP DEYI|| o CgUNT! 
IELSE-IP DEVICE COUNT 

ILET DEV INDEX •mi 



#l,EOD 
DCNT 



R DINX 
DIC AT OR TO 1. 



WRAP 



CHECK. 



Ir s 3 or mu 



Uisx 



I El 
ISND 



ILET INDEX REGISTER EgUAL DEj 
I LET THE VARIABLE DEVJ?E INd' 
IT. 

BR SET UP. 



DCNT, 

:?lcg IJIDEX, 



OF DEVICE SEARCH REP 



EQUAL 
R2 )#VDTND 



EAT LOOP. 

IRESTORE TABLE INDEX REGISTER. 

MOT 

IRETURR. 



<SP)*,R2 



TSAA DEC/X11 
XTSAAO.PlI 

1020 
02" 



SYSTEM EXERCISER MODULE 
08-NOV-78 10359 
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028 

I 




010246 

016702 175032 

016277 000536* 175034 

005077 175026 

046767 175020 175014 

112767 000001 175215 

104403 000000* 005202* 



SEQ 0023 



a*********************************************************** 



JjSOBROUTINE NAME: 
1 *PMICTI0IIS 
^CALLING SEQUENCE: 
^PARAMETERS PASSED: 
5*REGISTERS USED: 

^'SUBORDINATE ROUTINES: NONE. 

J* 

j ************************** *********************** ********** 

DROPD: PUSH R2 

LET R2 := DINX 



DROPD 

DROPS THE CURRENT DEVICE FROM THE TEST CYCLE. 
CALL DROPD 
NONE 

R2 



;SAVE TABLE INDEX REGISTER^ON THj^STACKj 
| LET INDEX REGISTER EQUAL DEVICE ifigEX. 



LET gfECT 
LET §TSSR 
LET DIND ! 
LET DROP J 
•NLIST MC 

A^n|,beS] 

iIlIst me 

POP R2 
RTS PC 



:= UIADR(R2) 

S= #0 

s DIND CLR.BY f DIND 
B= #1 



I POINT VECTOR TO UNEXPECTED INTER! 



; ISSUE SUBSYSTEM INITIALISATION T^JS 
I CLEAR THIS DEVICE'S BIT IN DEVICE INI 



jl n Ub a . 

DINX X R2 

RRUpf ROU 

UIADR£fj2),»VECT 



TINE. 



BIC 

#SET DEVICE DROPPED FLAG. m 
MOVB 



N,DROB 



; ASCII MESSAGE CALL VITH COMMON HEADER 



^RESTORE TABLE INDEX REGISTER. 

MOV 

; RETURN* 



INDICATOR. 

VDIND,DIND 

#l,DROP 



<SP)*,R2 



TSAA DEC 



074 



°0® 



099 

W 
III 



YSTEM EXERCISER MODULE 
08-NOV-78 10:59 



003320* 
003324* 



010246 

105067 175177 

012767 037777 175300 



mi mm- 



mm 



175264 



012767 000003 174542 

017767 174734 174532 

017767 174522 174522 

mm mm-imir- 

104405 000000* 000570* 
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« ******************************** ******************************** ******** 
f* * 
^SUBROUTINE NAME: ICCS * 

INUNCTIONS S - ISSUES COMMAND PACKET TO TS04. * 

>* - EflCOTES ERROR RECOVERY. J 

I ^CALLING SEQUENCE: 
^PARAMETERS PASSES: 
^REGISTERS USED: 

{•SUBORDINATE ROUTINES: DROPD, TCCO, TCC1, TCC2, TCC3, TCC4, 
I* TCC5, TCC6, TCC7. 



003402* 



SEQ 0024 



CALL ICCS 
NONE 

R2 



{•ENTRY PREREQUISITES: - ALL DEVICE VARIABLES SET UP. 

- ALL COMMAND VARIABLES SET UP. 



^ *********************** ****************** 



************** 



ICCS: PUSH R2 

ICCSR: LET EREC :B= #0 

LET TIME := #37777 

REPEAT 



.■LIST I 

At 



MC 

_GIN 
BEGIN 



ME 

EQ #0 THEN 



LET ERRTYP := |3 
LET AST AT := §TSSR 
LET ACSR «« §CSRA 



•NLIST MC 
.LlSf " 



JSAVE TABLE INDEX REGISTER ON STACK. 

MOV R2,-(SP> 

; CLEAR ER FLAG. 

CLRB EREC 
> INITIATE TIMEOUT COUNTER. 

MOV #37777,TIME 
7REPEAT UNTIL 0E ||g| 7 || READY : 

} TEMPORARY RETURN TO MONITOR.... 
ITHEM CONTINUE AT NEXT INSTRUCTION. 

|IF TIMEOUT HAS OCCURRED THEN: 

In im os 

>LET ERROR TYPE EQUAL 3, 

SOV «3 RRRTYP 

R FOR PRINTOUT. 
MOV ATSSR ASTAT 

>S*TB CONTENTS V TSDB^CSR) FoS.pSlNTOOT. 



SCSR1,ACSR 



ME 



HSGNS, BEGIN, CONT 

SHIilffJIcSHM 



HI 



»88f8l<8§SIS*Ii8!cS. 

:KHt"S § 

CALL DROPD 



*** 

***«*■ 



lSU2!SttB.!8.HW... u . 



*** ******* ***** 



JCALL DROPD-DROP CURRENT DEVICE, 



TSAA DEC/X11 SI 
XTSAAO.Pll j 



STEM EX 
fl-NOV-7 



|RCJS|R MODULE 
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003510" 



48 

49 005524" 

50 003524* 

53 003524* 

54 003530* 



003530* 



003536* 
003536* 

8811*?: 
883118: 

003556* 

67 003560* 

68 003560* 

69 003564* 



004767 

000476 


177630 




005367 


175204 




mm 


000200 


174662 


012777 


003530* 


174654 


016777 
000240 


175110 


174440 




000200 


174634 


012767 


000003 


174426 


017767 


174620 


174416 


017767 


174406 


174406 


18118? 


g go poo* 

000000 * 


mm* 


104405 


000000* 


000570* 


mm 


177514 




104400 


000000* 




000004 


000000* 


003536* 


016702 


174534 




016277 


000536* 


174536 


032777 
001406 


100000 


174526 


017702 
042702 


174520 
177761 





SEQ 00 



ICCS1S 



ICCS2S 



EMD?F ICCRTii 
LET TIME t« TINE - #1 
UNTIL #TS„SSR SETIN iTSSR 

LET ffECT is flCCSl 
LET 9CSRA is CNDADR 

!P P «TS.SSR SETII 9TSSR THEM 

LET BRRTVP I* #3 
LET ASTAT != iTSSR 
LET ACSR I* gCSRA 



|iiB R Sf L REi 
I UPDATE THE TIMED' 
?END OP READ? MAIT/REPEA 



JSR 



PC,DROPD 




TIME 



ISii?I R ' @TSSR 

#ICCSl,eVECT 
) ISSUE THE CMD PACKET TO THE TS04. 



fPOIMT VECTOR TO 



PIRQ CALjj- 



*GIVE TS04 ONE I 

I IP READY DID NOT DROP 



|TS.SSR,§TSSR 



MSG! 



;NS, BEGIN, REAI 



MOT CMD ADft,@CSRA 

NSTUCTION TIME TO RESPOND. 

THEN r 

BIT 

BEQ 50021S 
,LET ERROR TYPE EQUAL 5 fif yp 

,SAVE CONTENTS OF TSSR FOR ""M"}.^ 

CSR) FOR PRINTOUT. 
Of §CSRA,ACSR 



;SAYE CONTENTS OF 



TSDB(CSR) 

MO" 



aw 



JASCII MESSAGE CALL WITH COHNON HEADER 



5r8Io 



IR^ICCRTN 



EN 

•NLIST MC 
.LIST MB 
EXITS, BEGIN 



;C ALL DROPD-DROP CURRENT DEVICE, ^ 

JSR PC,DROPt> 
% BRANCH TO I CCRTN -RETURN, 
ID OF READY faoPPROCESSlNG, 
50021$: 



IEXIT TO MONITOR. MODULE WAIT FOR INTERRUPT. 



fiRoi^iiGlinccsi ~55e5e"5p"to"c5ItI55e"K 

m r! m 



R2 := DINX 
LET 9YECT :* UIADR(R2p 
IF fTS.SC SETIN #TSSR THEN 



EQUAL DEVICE INDEX. 

MOV DINX,R2 

£ .._ 



|LET INDEX REGISTER 

,POINT VECTOR TO UNEXPECTED INTERRUgt"R^jJTIN|g^ 

;IF SPECIAL CONDITION IS SET IN TSSR THEN : 

MTS i SC,flTSSR 
500$2$ 

LET R2 S» §TSSR CLR.BY #177761 | MASK TERMINATION CODF^OflT OF TSSR, 



BIT 

8 §8t 

MOV 
BIC 



R2 
»1,R2 



TSAA 
XTSAA 



IEC/X11 SYSTEM EXERCISER MODULE 
-»11 08-NOV-78 10:59 

004772 000516* 



174711 




my- mm 
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JSR PC,9TCCRA(R2) 
ENDIP 

IFB EREC NE *0 THEN 



ICCRTN: 



SEQ 00 



J GO TO APPROPRIAT 
. D OF SPECIAL |r 



EN 

POP R2 
RTS PC 



R^ICCSR 



CC HANDLING ROUTINE. 
ION STATUS CHECK. 

J IF ERROR RECOVERY REQUIRED FLAG IS SET THEN: 
TSTB EREC 
BEQ 50023$ 

Sr8S r rI|||I|y ¥ §equirement CKECK. 
inde? 3 Iegister. 

MOV 



;enB°oP°i 

^restore 

J RETURN. 



TABLE 



(SP)*,R2 



im&m 11 imsiimms moooli 



1184 



199 
200 




ill 



|o; 005067 174272 

I 017767 174464 174262 

• 017767 174252 174252 

mar- mm mm- mm- 

003644* 104406 000000" 000570* 
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j* ft** *ft ****** ************ ft ft* ************************** ******************* 



177360 



SEQ 0027 



^SUBROUTINE NAMES 

•FUNCTION: 

* 
* 

JCALLING SEQUENCE: 
•PARAMETERS PASSES: 
'REGISTERS USED: 



TCCO 

?ligIlfll D ? IPlifiPe8llS%II« C iSifSs). 

CALL TCCO A 

NONE J 

NONE # 

•SUBORDINATE ROUTINES: DRQPD J 

£«»» PRERBQOISITBS: - JS^gBp?*!*! 1 !^^^!^! 504 - \ 

********** ********************** ******************************* ********* 

TCCO: LET ERRTYP := #0 ;LET ERROR TYPE EQUAL 

LET ASTAT : = 0TSSR 



0CSRA 



CLR ERRTYP 
; SA7E CONTENTS OF TSSR FOR PRINTOUT, 

SRA,ACSR 



;SAVE CONTENTS OF TSDB(C 



FOR 



LET ACSR 

•NLIST NC 

MS6nLbEgSm,SPEC J ASCII MESSAGE CALL WITH COMMON HEADER 

**************** 
famtmiHUM .tKKItt.S8HIII9I.mm.. 



*************** 



lllLfsT Ml 
CALL DROP 

RTS PC 



J CALL DROPD-DROP THE DEVICE 

JSR 

JRETURN. 



JSR 



PCDROPD 



TSAA DEC/X11 SYSTEM EXERCISER MODULE 
XTSAA0.P11 08-NOV-78 10:59 
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012767 000006 174220 

017767 174412 174210 

017767 174200 174200 

mm- mm mm- mm- 

003716" 104405 000000* 000570* 



UIW mm 177306 



SEQ 0028 



***************** *********************************************** ********* 



•SUBROUTINE NAME: 

^FUNCTIONS 
{•CALLING SEQUENCE: 
^•PARAMETERS PASSES: 

'•REGISTERS USED: 



I 



TCC1 ft 

PROCESSES TCC1 (ATTENTION CONDITION) • J 

CALL TCC1 ft 

HONE • 

NONE * 

^•SUBORDINATE ROUTINES: DROPD ^ 

J*ENTRY PREREQUISITES: - COMMAND HAS BEEN ISSUED TO TS04. * 

>• - INTERRUPT HAS BEEN RECEIVED. • 

i* * 
£ ****************************************** ****************** ************ 

TCCl: LET ERRTYP := #6 I SET ERROR TYPE EQUAL 6, 

MOV #6, ERRTYP 
LET ASTAT J* STSSR J SAVE CONTENTS OF TSSR FOR PRINTOUT. 

MOV ATSSR.AST 

LET ACSR :* 0CSRA J SAVE CONTENTS OF TSDB(CSR) FOR PRINTOUT. 

MOV gCSRA # ACS 

H^RUKsiMmf jkijk.8k.uk. 

illl 

" ' Drdpd SHALL DHUPD-DRDP THE DE¥„ vm „ 

J§g PC, DROPD 



RTS PC 



***• 

************************ 



;CALL DROPD-DROP THE DEVIgg. 
JRETURN. J 



DEC/U1 SYSTEM EXERCISER MODULE 
0.P11 08-NOV-78 10:59 



111 7 !!* 8iil$2 000001 174712 

83lll5; 012767 000051 174136 

50: 017767 174330 174126 

017767 174116 174116 

mm- nmi mm- mm- 

004000* 104406 000000* 000570' 




004006* 
004006* 
004006* 



6* 000207 
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}****** ft ft* ft ftft* ************* ***************************** ft******** ******** 
ft * 

**SUBR3UTINE NAME: TCC2 

fft * 
> 'FUNCTION: PROCESSES TCC2 (TAPE STATUS ALERT). J 

^CALLING SEQUENCE: CALL TCC2 fc 

?*P ARAMETERS PASSES: HONE * 

J « * 
♦REGISTERS USED: NONE * 

^SUBORDINATE ROUTINES I NONE J 

|*BNTRY PREREQUISITES: - COMMAND HAS BEER ISSUED TO TS04. * 
S* - INTERRUPT HAS BEEN RECEIVED* * 

i* * 
J**************** ******** ************************************************ 

TCC2: IF #XS0.EOT NOTSETIN XSTATO THEN } IP NOT AT END OP TAPE THEN: 

BIT »XSO« bUT#AoTATU 

BNE 50024$ 

LET ERRTYP 3 = #51 >LET ERROR TYPE EQUAL 51. , 5l ,«R t YP 

LET A STAT 3* #TSSR iSAVE CONTENTS OP TSSR FOR PRlflTQg|. 

MO? »T55R/ AST AT 

LET ACSR :x 9CSRA } SAf E CONTENTS OP TSDB(CSR) POff PRINTOUT. 

MOV @CSRA|fACSR 

.NLIST MC 

MS|nCSe1!n,TAPE I ASCII MESSAGE CALL HITH COMMON HEADER 

?fm««SII<*m*******J^ **************** 

****************** 

•LIST MC 
•NLIST ME 

EN 6 IP ;END TAPE STATUS ALERT PROCESSING. 

50024$: 

RTS PC JRETURN 
I 



TSAA DEC/ 111 
XTSAAO.Pll 



SYSTEM EXERCISER MODULE 
08-NOV-7B 10:59 
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174070 
174060 
174050 



00 
000570" 



177156 



SEQ 0030 



• ******************** ************************************** * ************* 



J* 

|*subroutine name 5 
;jpunction: 

{•CALLING SEQUENCE: 
> JP ARAMETERS PASSES % 
^REGISTERS USED: 
INSUBORDINATE ROUTINES: 
J*£NTRY PREREQUISITES: 

j: 

£****** ***************** ***************************************** ******** 



TCC3 

PROCESSES TCC3 (FUNCTION REJECT). 

CALL TCC3 

NONE 

NONE 
DROPD 

- COMMAND HAS BEEN ISSUED TO TS04. 

- INTERRUPT HAS BEEN RECEIVED 



TCC3: LET ERRTYP := #52 

LET ASTAT 3s ftTSSR 

LET ACSR := gCSRA 

.NLIST MC 
•LIST ME 

MSGJ$,BEGJH,FUMC 
IltlEGlN 



************************** 

,!Bm«!f8IIiIi5K....««miJ?l!.8i«£IS8 



JLET ERROR TYPE EQUAL 52. 

MOV #52, ERRTYP 

>SAVE CONTENTS OP TSSR FOR PRINTOUT. 

MOV ATSSRsASTAT 
I SAVE CONTENTS OF TSDB(CSR) POR PRINTOUT. 

MOV §CSRA,ACSR 

1ASCII MESSAGE CALL WITH COMMON HEADER 

iSiSiI*8illSSl*S£*b*KiI ********* 814818** 



RTS PC 



| CALL DROPD-DROP THE DEVICE. 

JSR 

jreturn 



PC, DROPD 



1343 
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mm 



mi%\ 174232 174226 

004767 000210 
005267 174216 

016777 174206 174440 

174176 100601 

174166 100201 



mm 



174162 
174156 



mm 

062777 020000 174376 



112767 000001 174331 

000402 

004767 000204 



SEQ 0031 



JJSUBROUTINE NAME: 

^FUNCTION: 
'•CALLING SEQUENCES 
^PARAMETERS PASSES: 
f *RSGISTERS USED: 



**«^ ************ ******************************************^ 

a 

TCC4 # 

PROCESSES TCC4 (RECOYBRABLE ERROR). # 

CALL TCC4 * 

MONB j 

R2 J 

f ^SUBORDINATE ROUTINES: RBCER, UNREC J 

{•■■TH PREUQOIsmS, - S8?HA gB ^*| ^Eg^ ISSggg ^g^SO*. * 

|* * 
J************************************************************************ 

TCC41 IF RTRYC LT RTRTL THEN } IF RETRY LIMIT HAS NOT BEEN REACHED: 

CALL RECER % PR INT RECOVERABLE ERROR MESSAGE. 

JSR PC, RECER 

LET RTRYC : = RTRYC ♦ fl } INCREMENT THE RETRY COUNT. 

INC RTRYC 

LET fCMDPKl I* RCMD 1MOYB RETRY CMD TO CMD PACKET. 

MOV RCMD,0CMDPK1 

IF CMD EQ #RDR OR CMD BQ #RDF THEN |IP THE COMMAND IS A READ THEN: 

CMP CMDfiRDR 
BEQ 50026$ 

50026$: 

}LET INDEX REGISTER r ... 

n QV RTRYL, 
R2 



LET R2 :» RTRYL SHIFT -1 
IF RTRYC GT R2 THEN 



R EQUAL HALT THE RETRY LIM 
SIS RTRYL^R? 

;IF RETRY COUNT IS MORE THAN 
CMP 



lihi? £ |h h: m * %% * 7 

LET gCMDPKl :« SCMDPKl ♦ fCM.olp^Sfi^lppSIlTE^ IRECtl§N 5 BIT 

ADD §C 



ENDIF 
ENDIF 

LET ERBC :B* #1 

ELSE 

CALL UNRBR 
ENDIF 



«M CMD PACKET 1ST WORD. 
RETRY Dl||CJIQN CHECK. 

IEND READ CMD fgg|^|* 

>SET ERROR RECOVERY REQUIRED FLAG. 

MOVB " " 



•CM.OPP,gCMDPKl 



1ELSE-IF LIMIT NOT REACHED: 



50025$: 
JPRINT UNRECOVERABLE 

IEND RETRY LIMIT CHECK. 



#1/ EREC 
50031$ 



ERROR MESSAGE. 
JSR PCUNRER 



TSAA 0EC/X11 SYSTEM EXERCISER MODULE MACY11 30A(1052) 08-NOV-78 11:00 PAGE 33 

XTSAAO.Pll Ofl-NOV-78 10:59 SEQ 0032 



|?0 BSIltt* 000207 RTS^PC ^ _ I RETURN 50031$: 



1402 



TSAA OEC/Xll SYSTEM EXERCISER MODULE 
XTSAA0.P11 OB-NOV-78 10:59 



004170* 

mhT mm 
mm- 
mm- 

i 



174124 174120 



Hip! 004767 000102 

. , m 005267 174110 

SSliil* 112767 000001 

004220^ 

ilHIS* 004767 000146 
1* 000207 



174273 



HACY11 30A<1052) 08-MOV-78 11:00 PAGE 34 
«********************************************** 



SEQ 0033 



•*••*•**** 



{•subroutine iambs 
> •function: 
{•calling sequence: 
^parameters passes: 
{•registers used: 



TCC5 

PROCESSES TCC5 
CALL TCC5 

NONE 
NOME 



(RECOYERABLE ERROR). 



INSUBORDINATE ROUTINES: RECER, UNRER 

>*ENTRY PREREQUISITES: - COMMAND HAS B 
JJ - INTERRUPT HAS 

| ************************************** 

TCC5: IP RTRYC LT RTRYL THEN 



CALL RECER 

LET RTRYC Is RTRYC ♦ #1 
LET ERBC SB* #1 

ELSE 

CALL UNRER 
ENDIP 

RTS PC 



EEI ISSUED TO TS04. * 
BEEN RECEIVED. * 

*********************** *********** 

| IP RETRY LIMIT HAS NOT BEEN REACHED THEN: 

SS iS8!k RTRVL 

; PRINT RECOVERABLE ERROR MESSAGE. 

JSR PC/ RECER 

; INCREMENT THE RETRY COUNT. RJRYC 

JSET ERROR RECOVERY REQUIRED FLAG. 

MOVB #1,EREC 
; ELSE-IP RETRY LIMIT REACHED: 

BR 50033S 



JPRINT UNRBCOVERAI 



|END RETRY LlMIT g gg|^ ? 



ERROR MESSAGE. 
JSR PC, UN! 



[RER 



; RETURN 



TSAA 0EC/X1 
XTSAA0.P11 



1 S 



m 

443 
444 

111 



451 
452 

111 

455 
456 
457 
458 

m 
m 



ITEM EXERCISER MODULE 
NOV-78 10:59 



0002S? 



000140 
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SEQ 0034 



^subroutine name: 

Ijpusctiom: 

i*CALLING SEQUENCE: 



) ^PARAMETERS PASSES: 
{•REGISTERS USED: 
'•SUBORDINATE ROUTINES: MONE 
{•ENTRY PREREQUISITES: - COMj 

?***' 
TCC6 



TCC6 

PROCESSES TCC6 (UNRECOVERABLE ERROR). 
CALL TCC6 
NONE 
NONE 



AS f 
HA! 



CALL UNRER 
RTS PC 



> PRINT UNRECOVERABLE ERROR MESSAGE. 

> RETURN JSR PC ' 0,,RER 



TSAA I 
XTSAA 



MACYll 30A(1052) 08-MOY-78 llsOO PAGE 36 



1465 

■m 

468 

is 

i 
ill 

479 

1 

m 

■m 

487 
488 
489 
490 

! 

494 
495 
496 
497 



1501 



181 



SMIll; 012767 000055 173644 

017767 174036 173634 

8842SO* 017767 173624 173624 

urn- \nm mm- mm- 

004272" 104405 000000* 000570* 



88.. 

0043< 



\W 88328? 



176732 



SEQ 0035 



•****************************** 



?*subrquti»e name: 
|*functior: 
|*calling sequence: 



TCC7 

PROCESSES TCC7 (FATAL SUBSYSTEM ERROR). 
CALL TCC7 
HOME 
NONE 



|£PARAMETBRS PASSES: 
^REGISTERS OSBD: 

INSUBORDINATE ROUTINES] OROPD J 

»*ENTRY PREREQUISITES: - COMMAND HAS BEEN ISSUED TO TS04. * 
1* - INTERRUPT HAS BEEN RBCEIYED. * 

I* * 
^ ************************************** **************************** ****** 

TCC7: LET ERRTYP S = #55 



LET ASTAT J= gTSSR 
LET ACSR :x §CSRA 
•N^IST MC 

m&gnLbeSin#fata 

«ffiiiiiijiiS9ei**** 

"!!l!ii!!!I!&Ii!!ii* 

CALL DROPO 

RTS PC 



,LET ERROR TYPE EQUAL SS^ „ bfttmr 

,SAYE COKTBMTS OF TSSR -OR MI«jgj AST „ 

;SAVE CONTENTS OF TSDB(CSR) FOR PRINTOUT. 

MOY §CSRA,ACSR 

; ASCI I MESSAGE CALL WITH COMMON HEADER 

***************** 



2 CALL DROPD-DROP THE DEVICE. 

JSR 

JRETURN 



PCDROPD 



TSAA DE 
XTSAAO. 



C/Xll SYSTEM EXERCISER MODULE 
Pll OB-NOY-78 10:59 



0043I 

mm 

mm 

mlfc 
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* ************************************************************************ 
J* * 

/•SUBROUTINE NAME: RECER * 

}* * 

t ^FUNCTION: PRINT RBCOYERABLE ERROR MESSAGE. * 

^CALLING SEQUENCE: 
1 ^PARAMETERS PASSED: 
J*REGISTERS USED: 



nmi 


000002 


173502 


012767 


000053 


173562 


017767 


173754 


173552 


017767 


173542 


173542 


mm 


888888: 


mm- 


104406 


000000* 


000570" 


000402 






005267 


173452 





CALL RECER * 
NONE I 
NONE * 
•SUBORDINATE ROUTINES: NONE J 
•****•****•••***•***••** ********** ***••**••*** **************** ********** 



RECER: IF *BIT1 NOTSETIN SRI THEN 

LET ERRTYP :* #53 
LET ASTAT := BTSSR 
LET ACSR := BCSRA 



ion 



ML IST MC 
1ST Mg 
' N,RECD 

*« 

LIST MC 
■LIST ME 



} IF BIT 1 NOT SET IN SRI TH.EN 

|LET ERROR TYPE EQUAL 
?SA¥E CONTENTS OF TSSR 
jSAYE CONTENTS OF TSDb|||| 



#B ITlfSRl 
50034$ 

§OY #53 < r£RRTYP 
FOR PRINTOUT. 

jiTSSRsASTAT 
R) FOR PRINTOUT. 
»CSRA,ACSR 



*********************** 



000207 



ELSE 

LET SOFCNT ?s SOFCNT 
ENDIF 
RTS PC 



♦ #1 



lELSE-IF BIT 1 SET IN SRI: 
BR 

- s - 08 - 34 S6oNt. 



I UPDATE SOFT ERROR 
}ER 

0035$: 



INC 

I END SNITCH REGISTER CHECK. 

500 



50035$ 
SOFCNT 



JRETURN 



TSAA DEC/X11 
XTSAA0.P11 



4? 



P 
560 

m 



SYSTEM EXERCISER 
OB-NOV-78 10:59 



NODULE 



571 

m 
m 
m 

57R 

.38 

18 

III 

585 
586 
587 
58R 
589 
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.************************ A********************************************* ** 

{^SUBROUTINE NAME I 

;*functions: 



012767 000054 173506 
017767 173700 173476 
%' 017767 173466 173466 



88«ir- 18118? 8888S8- 88USF- 

004430* 104405 000000* 000570* 



88111*: 032767 000001 

004444' 001402 



04444 



173352 



- 004767 176564 

004455* 
004452* 

004452' 000207 



SEQ 0037 



UNRER 



- DROP DEVICE 

CALL UNRER * 

HOME * 

NOME * 

•SUBORDINATE ROUTINES: OROPD * 

• * 
************************************************************************ 



>*CALLING sequence: 
^PARAMETERS PASSED: 
^♦REGISTERS USED: 



UNRER: LET ERRTYP := #54 
LET ASTAT := iTSSR 
LET ACSR :a #CSRA 

-IW ft 
Ufit 



******* 



|LET ERROR TYPE EQUAL 54, q ^ 

>SAVE CONTENTS OF TSSR FOR %RIN TOUT . 

MOV §TSSR#ASTAT 
| SAVE CONTENTS OP TSDB(CSR) FOR PRINTOUT. 

; ASCII MESSAGE CALL WITH COMMON HEADER 

lii{II*!!fSflfg*£l»*IIIS*£»!!Si*91i!ii** 



4, ERRTYP 

Printout 
»csra,acsr 



ft 



If #bito setin sri then 
call dropd 

ENDIP 

RTS PC 



************ ******** 



,IF BITO «T IN SRI MMJ 

SEQ §00361 
. VICE, 

JSR PC # DROPD 
JEND SWITCH REGlgJERCHECK. 

1 RETURN 



TSAA DEC/XU SYSTEM EXERCISER MODULE 
XTSAA0.P11 Ofl-NOY-78 10:59 

1590 

m 



1593 
1594 

hn 

1597 

mi 



004462' 



111 8811fi: 

1603 004472* 



hum 



oollll- mm 



000001 174030 



000001 174021 



000001 174012 



1608 
1609 

88 881181'- 

iio*002 000001 174003 



1613 004512 
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J ****** ******************** *********************************** *********** 
* * 
J* ROUTINES TO SERVICE UNEXPECTED INTERRUPTS * 

}* * 
****************************************************** **************** ** 

UIDO: LET UIFLO :Bs #1 >SET DEVICE UNEXPECTED INTERRUPT FLAG. 

MOVB #1,UIFL0 

RTI JRETURN FROM INTERRUPT. 

I 

UID1: LET UIFL1 :B* #1 ; SET DEVICE 1 UNEXPECTED INTERRUPT FLAG 

MOVB #i # UIFLl 

RTI | RETURN PROM INTERRUPT. 

UID2: LET UIFL2 :B» #1 J SET DEVICE 2 UNEXPECTED INTERRUPT FLAG. 

MOVB #1»UIFL2 

RTI | RETURN FROM INTERRUPT. 

UID3: LET UIFL3 :B= «1 } SET DEVICE 3 UNEXPECTED INTERRUPT FLAG. 

MOVB #1,UIFL3 

RTI ; RETURN FROM INTERRUPT. 



SEQ 0038 
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MODULE 
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SEQ 0039 



Iomtroller 

~ADY 5" 



NOT READY* 



•READY DID NOT DROI 

•OMRBCOYBRABLE ERROR 
•SET CHAR* 



TATOS* 



OR* 



*REAI 
*REH 
BEX 



| ADR Of CMD ASCII MILL BE STORED HERE* 



TSAA DEC/X11 

XTSAACPll 



EXERCISER 



MDPK4 
CM.OPP= 
CONFIG 
COHT 
CONTUE 
CRETRY= 
CSRA 
CVSET 
DA|CK I 
D ATER§= 



MODULE 



958* 
545 



mn 1 

1103 




30AC1052) 
REFERENCE 



606 



08-NOY 
TABLE — 



tl tl 



621 
1385* 

mi 



OS BR 
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SYMBOLS 



1136* 1209* 1247* 



1134* 1207* 



EfNBOLS 
1289* 



SEO 0040 



623 



834* 



nil m«* nil 



1328* 14R9* 



1528* 



1570* 




1487* 1526* 1568* 



i;y m m ii 



626 



835* 



3« 



629 



i m. nth hh 



1493 



1532 



1574 



1642# 



836* 



1247 



1289 



1328 



1489 



1*28 



1570 



TSAA DEC/XU 
XTSAA0.P11 



SYSTEM EXERCISER MODULE 
08-NOV-78 10:59 

*E !?p # All 
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SEQ 0041 



536 


918* 


949 


977* 


979 


993* 


1004 


n 


l W 

985* 


868 


920* 


995* 


1004* 


1005* 1007 1039 1161 


707 
1114 


714 
1147 


729 

1220 


9 26* 
1258 


973* 
1339 


1Q47* 
lSOO 


1584 


701 


B65# 












222 

652 


878* 


924* 


982 


991* 






1174 

Hi* 


i3 ,ir. 




1132* 


1205* 


1243* 


1285* 1324* 1485* 1524* 


596 


606 


633 


634 








1109 


1142 


1253 


1334 


1495 


1576 




mi* 


712 


727 


745 


10*1# 







1566* 



IMODX.= 

INIT 

INTR 

MAIN = 

MAP22$= 

HBUFEA 

MBUfPA 

MBUFYA 

MODNAM 

MODSP 

MSGRL.K 

MSGCNT= 

MSGHS = 



00122R 
02774R 



0581? 



00001 
10440 



MSGPKT 000644 
MSGSS = 104402 
MSGS = 104401 



i 



961 

mi 



917# 



639* 

■Pi 



642* 



643* 

m 



644* 



645* 
39 



646* 




m <tn m m. 



1213 



1250 



1251 



1292 
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MSG1 

MSG10 

MSGll 

MSG12 

MSG2 

MSG3 

MSG4 

MSG5 

MSG6 

MSG7 

MSGfl 

MSG9 

NULL 

OPEN 
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SYMBOLS 



SKG 0042 



ill ffl ill ill ill i® m iti 



244 
264 



244 

265 



PRTY6 = 
PRTY7 = 
PS 

PSW = 

PUSH2 = 
RANDS s 
R ANNUM 
RBUFEA 
RBUFPA 
RBUFSZ 
RBUFVA 
RCMD 
RDF s 
RDF AS 
RDR = 
RDRAS 

Utfn 

RECO 

RECORD 

RESTRT 

RESl 
RES2 
REWIND 
RFC 

RFR = 
RFWD 



005726 

mm 
mm 



94« 



000 



i 



275| 



275# 



000452R 



4024 



743 



403 
725 



1 



im 

1372 



15201 

876* 



ill 



735 
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REFERBICK TABLE USER 



870 



11:00 PAGE 46 
SYMBOLS 



SEQ 0044 




951 1597* 

!«: H»: HM. Ml* 



10051 1006 10071 10OB 

h8. Km ifw isilt 




TSAA DEC/Xll SYSTEM EXERCISER MODULE 
XTSAAO.Pll 



NOV-78 10:59 



MACYll 

CROS~ 



30A<1052> 0«-MOV-78 11:00 PAGE 
REFERENCE TABLE — USER SYMBOLS 



$P$AND= 000310 
$F$BAD= 000401 



|P|BL^A= 0001 

if |dec= 8881 

SF$00 = 0003 
SFsP AL= 0004 
SF$GOO= 0004 



$FSIF = 000110 




1178 

14 " 



1206 

1285* 

1366* 

ml 

15701 

731 
1425 

54ft 
612 
699 
876 

W, 

1084 
116i 

'PI 

1570 



531 
547 
567 
604 
628 
659 
70*? 
749 

Ml 

99i 
1009 

'-°S 5 
3U24 
1162 

£ lia 

1369 

1 4 90 

15*68 
1613 



1300 
1539 



SEQ 0045 

1207# 
1286 
13681 



1368f 

IP!' 

an 

553 
618 
709 
828 

Ul 

1086 

\m 

1583 



532 
548 

569 

662 
712 
750 
829 
670 
921 
957 
992 
010 
086 



370 
.426 
*500 

569 

707 
999 
1363 
1544 
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5F§.INC= 000 



= 000160 



SLOO= 

Spsham= . 

$F$NO = 006403 



$F$OR = 000320 




$IFLEV= 177777 

$ isro = 000001 
$ISK1 = 000001 
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CROSS REFERENCE TABLE — USER SYMBOLS 



53 i 



III 




?5J# 



TSAA DEC/Xll 
XTSAA0.P11 

SISK 
SISK- 
SLOCTA 



TEM EXERCISER 
-NO¥-7§ 10s59 



MODULE 
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49 



S£Q 0047 



;. m 



SLSTIN= 000001 



SLSTTAr 000001 



Inestl= 005561 



SWSKO = 
SNSK1 = 
5NSK2 = 



000160 
000160 
000110 



SNSK3 

SNSK4 

SNSK5 

SSAVLE 

SSSKO 

STAGLE 



s few? 



$TAGNU= 050037 




580 
682 

I 
,1 

1 
\m 

1510 

m 

1395 

mt 

999| 
1178f 

nm 

1390 



3511 

M 

1396| 

lift 




mi 

1001 



^8? 



651* 



oOl 
708 
980 
11 30 

1388 

l ffl 

m 
m 

^08 

876 
956 
995 
1043 
1119 
1165 

ttU 

1394 
1500 
1584 

18T! 

1437 




ol0# 

7 -ii 



601 
686 



111 



f 70« 
757 

1372» 
1586$ 



iiu \\w \m, mv 



652» 
7513 
I002# 
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USER SYMBOLS 



$ TEMP = 000402 



$TSKO = 050036 

$TSK1 = 

$TSK2 = 

STSK3 = 
STSK4 s 
STSK5 = 
SSARGC: 
$$BYTE= 



SCASE= 
SDST = 
SELOC= 050402 



SERFL= 000000 
$ PL AG = 000001 




75 
. 098ft 
i.376 
1541f 



539» 

m 

62""' 
67 
750 
824 
844 



m 

50# 



9S5M 
989# 
1006* 
1044# 

m\\ 

1205# 
12861 
1369# 
1399i 
1490 1 
1567| 
16131 

iIS. 



7 29g 
13811 



690* 
988 
1300| 
15441 



602 
15441 



! 111! 



SEQ 0048 

976* 
1130 
1377# 
1582 

540# 

m 

690# 
751 
825,, 
868| 
919* 
956# 
991? 
1007f 
1045f 

11351 

1370l 
1428* 

mn 

i!3f* 

1377# 
990# 



740# 
' "31 



1423$ 



707# 
158ll 



953* 
1150? 

mn 
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XTSAAO„Pll 
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$$PROM= 000000 



$$LOC = 004444R 



SLOCN 
SREG = 
SRETUs 
SRTN1= 
§RTN2= 
SSRC = 
$TCSV= 
|TGS1= 
$TGS2= 
$TO = 



SS$TAG= 



= 0( 



m 

000 
000 



050000 
005214R 
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ill' 
W 




WW 

If, 




659# 

in. 



.1 

1376 



SEQ 0049 



1 



660 

W 

100# 
664 
1382 



000000 
005214 



000 
001 



ERRORS DETECTED: 

DEFAULT GLOB ALS GENERATED: 

XTTSAAOg XTSA Agl SOL/CRF:SVH=DD XCDM/SPM AC/ML # XTSAAO 



RUH-TI 



CORE USE 



34 2 



_ I SECO 
&UN-TIME RATIO: 230/63 
SED: 16K (31 P 



CONDS 

age!) 



XX 
XX 
XX 
XX 



XX 

XX 



XX 
XX 
XX 
XX 



XX 

11 

XX 



XX 
XX 



XX 
XX 



XX 
XX 



XX 
XX 



XX 
XX 
XX 
XX 



TTTTTTTTTT 

TTTTTTTTTT 
TT 
TT 
TT 

?I 

TT 
TT 

I? 

TT 
TT 

TT 



SS 

ss 

SS 

ss 



ssssssss 
ssssssss 



ssssss 
ssssss 



ssssssss 
ssssssss 



ss 
ss 
ss 
ss 



AAAAAA 
AAAAAA 

AA 
AA 
AA 
AA 
AA 

Haaaaaa 

aaaaaaaa, 

AA 
AA 
AA 

AA 



AA 



AAAAAA 
AAAAAA 

AA A 

AA 

AA 

AA 

AA 

A^AAAAAA 
AAAAAAAA 
AA 
AA 

AA 

AA 




SS 

ss 
ss 

SS 



SSSSSSJ 
SSSSSSS 



SSSSSS 
SSSSSS 



SSSSSSSS 

ssssssss 



ss 
ss 
ss 
ss 



EEEEEEEEE 

EEEEEEEEE 

EE 

EE 

EE 

EE 

EEEEEEEE 

EEEEEEEE 

EE 

EE 

EE 



EEEEEEEEEE 
EEEEEEEEEE 



i 8 



QQ 
QO 
QQ 
QQ 

88 

QQ 
QQ 

8? 



8 

QQ 
QQ 

S3 
iS 



QQ 
Q9 

Q3 



QQ 

QQ _ 
QQ 

QQ 

QQQQ QQ 
QQQQ QQ 
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REPORT PROBLI _ 

If you have problems/questions with this report* please 
A. Check the applicable it eras* 

Do not need this report, please discontinue 

— in receiving report on Microfiche 
in receiving report on 8 1/2 I II 



interested 

Interested 

Addi r 



Xerox paper 
below) 



Address is wrong or incomplete (Enter correctly below 

Have other Probien/ questions not sure who* to contact 
identify yourself and the report. phone: 
Naae: Location (aali stop) : 

CC #: Report nane: Report #3 

Mail^entirg page^ to| Corporate Information Services 
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